<!--#include file="index_inc.asp" -->
<!--#include Virtual="/Common/Cls_Page.asp" -->
<%

Dim catalog_name
catalog_name= requery("catalog_name")
catalog_name= "分类信息"

If Request.ServerVariables("Request_Method")="POST" Then
	Area		= reform("Area")
	Info_title	= reform("Info_title")
	Info_Type	= reform("Info_Type")
Else
	Area		= requery("Area")
	Info_title	= requery("Info_title")
	Info_Type	= requery("Info_Type")
End If 
ad_image   = get_info_ad("")

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>海南分类信息——人才、招聘、二手信息、房屋租赁</title>
<meta name="Description" content="中国海南网" />
<meta name="Keywords" content="海南分类信息——人才、招聘、二手信息、房屋租赁" />
<link href="../skin/09/info.css" rel="stylesheet" type="text/css" media="screen" />
<script type="text/javascript" src="../javascript/tab.js"></script>

</head>
<body>
<!-- 头部开始 -->
<!--#include Virtual="/include/Head2.asp" -->
<!-- 头部结束 -->

<div class="m">
	<div class="left con_l">
    	<div class="searchB">
    	<h3>信息搜索</h3>
            <ul>
				<form action="index.asp" method="post">
                <li><label>市　县：</label>
				<% Selected_BySql "Area","SELECT DSI_Name,DSI_Name from uvw_Dic_Item  WHERE DI_Name='地区' ORDER BY DSI_Order ASC","-不限区域-",Area %>
				</li>
                <li><label>类　型：</label>
				<% Selected_BySql "Info_Type","SELECT dsi_name,dsi_name FROM uvw_Dic_Item where di_name='个人信息类型' ORDER BY dsi_order asc","-不限类型-",Info_Type2 %>
				</li>
                <li><label>关键字：</label><input type="text" class="txt" name="info_title" value="<%=info_title%>" /></li>
				<li class="tl"><label></label><button type="submit" >提 交</button><button type="button" onclick="window.location.href='http://www.hainanok.net//member/login.asp'" >免费发布</button></li>
				</form>
            </ul>
        </div>
        
        <div class="govGet">
        <h3>信息分类</h3>
        	<ul class="infonav">
				<%
				Sql = "SELECT dsi_name,dsi_name FROM uvw_Dic_Item where di_name='个人信息类型' ORDER BY dsi_order ASC"
				Array_List = GetRsRows(Sql)
				If IsArray(Array_List) Then 
				For i=0 To UBound(Array_List,2)
					
				%>
            	<li><a href="index.asp?Info_Type=<%=urlencode(Array_List(0,i))%>"><%=Array_List(0,i)%></a></li>
				<%
				Next
				End If 
				%>
                
            </ul>
        <h3>企业招聘</h3>
            <div class="us">
                <ul>
					<% Call Corp_ZP_List()%>
                </ul>
            </div>
        </div>
    </div>

    
    <div class="left con_r">
    	<div class="r_cen">
          <div class="c_ad"><%=ad_image%></div>
          <h3>信息列表</h3>
            <div>
				<%
				Sql = " 1=1 "

				Sql = EqualSql("PI_Area",Area,Sql)
				Sql = EqualSql("PI_Type",Info_Type,Sql)
				Sql = LikeSql("PI_Title",Info_Title,Sql)
				'writebr sql
				Set Ors_Page = New Class_Page

				'================================
				'Table 查询的表或是视图
				Ors_Page.Table="person_info"

				'Field SQL语句SELECT数据库的字段
				Ors_Page.Field="PI_ID,PI_Title,PI_Type,PI_Area,Update_Date"

				'Pkey主键
				Ors_Page.Pkey="PI_ID"

				'OrderBy 排序字段
				Ors_Page.OrderBy="Update_Date DESC"

				'Ors_Page.Order=1			'排序；0 顺序，1 倒序 

				Ors_Page.PageSize=17 '每页记录数

				'Condition 使用的条件，Tt_Title_Sql.....等等
				Ors_Page.Condition = Sql


				'PostString Tt_Title表单POST过来的值进行传递，该处适用POST和GET
				Ors_Page.PostString = "Area|Info_Type|Info_Title"

				RecCount = Ors_Page.RecCount() '记录总数
				rs_Array = Ors_Page.ResultSet() '返回ResultSet
				'================================
				If IsArray(rs_Array)=True Then
					
					
				%>
                <ul>
					<%
					For i=0 To UBound(rs_Array,2)
					Info_ID		= rs_Array(0,i)
					Info_Title	= rs_Array(1,i)
					Update_Date	= rs_Array(4,i)
					%>
                    <li><span><%=Update_Date%></span><a href="info.asp?Info_ID=<%=Info_ID%>"><%=Info_Title%></a></li>
					<%
					Next
					%>
                </ul>
			  <%
			  If Ors_Page.PageCount>1 Then 
			  %>
				<p>
					<% Call Ors_Page.ShowPage() %>
				</p>
			  <%
			  End If 
		  	  Else
			  %>
				<ul>
					<li>没找到你需要的数据</li>
				</ul>
			  <%
			  End If 
			  %>

          </div>
      </div>
        <div class="r_info">
        <h3>推荐信息</h3>
            <div class="txt">
                <ul>
					<% Call Re_Person_List() %>
                </ul>
            </div>
        <h3>人才推荐 <a href="qz_list.asp">更多</a></h3>
            <div class="rc">
                <ul>
					<% Call QZ_Info_List() %>
                </ul>
            </div>
        </div>
    </div>
    <div class="clearleft"></div>
</div>



<div class="m">
	<div class="govlink">
    	<ul>
        	<li><span><a href="http://www.hainan.gov.cn/code/V3/" target="_blank">海南省人民政府</a></span></li>
            <li><span><a href="http://www.hizw.gov.cn/web/index.jsp" target="_blank">省行政服务中心</a></span></li>
        </ul>
    </div>
	<div class="unlink">
	<ul>
	<%
	Sql = "SELECT  TOP 10 b.Site_ID,b.Site_Logo,b.Site_Url FROM uvw_Sort_Info a INNER JOIN Friend_Link b ON a.Info_ID = b.Site_ID  WHERE  a.Sort_Sub_Name='分类信息友情链接十二张图' ORDER  BY a.Sort_Order ASC"
	'writebr sql
	ad_List = GetRsRows(Sql)
	If IsArray(ad_List) Then 
		For i=0 To UBound(ad_List,2)
			Site_Logo = ad_List(1,i)
			Site_Url  = ad_List(2,i)

	%>
	<li><a href="<%=Site_Url%>" target=_blank><img src="<%=Site_Logo%>" /></a></li>
	<%
	Next
	End If 
	%>
    </ul>
    </div>
    <div class="clearleft"></div>
</div>

<!-- 底部开始 -->
<!--#include Virtual="/include/bottom.asp" -->
<!-- 底部结束 -->
</body>
</html>
